Garbo/Garbo.cdr/mac/hypercrd/hc1_2_x/stabilzr.sit/The Stabilizer/card_3633.txt

Text File | 1989-02-05 | 13KB | 587 lines

-- card: 3633 from stack: in
-- bmap block id: 17605
-- flags: 4000
-- background id: 2175
-- name: whichMonths
----- HyperTalk script -----
on openCard
  hide menuBar
  global expenseAmount,expense
  if expense = empty then
    visual venetian blinds to gray
    visual venetian blinds
    pop card
  else
    if expenseAmount = "variable," then put " AND ENTER THE AMOUNT" after card field "chooseMonth"
  end if
end openCard

on closeCard
  put "CLICK ON THE MONTHS YOU PAY THIS EXPENSE" into card field "chooseMonth"
end closeCard

on monthInfo
  global expenseAmount
  if expenseAmount = "variable," then
    repeat with i = 1 to 12
      if the visible of card field i = true and card field i = "$" then
        if the name of button i = the name of the target then exit repeat
        beep
        repeat 4
          set the hiLite of button i to not the hiLite of button i
        end repeat
        click at the loc of card field i
        exit monthInfo
      end if
    end repeat
  end if
  get the short name of the target
  set the hiLite of the target to not the hiLite of the target
  if the hiLite of the target is true and expenseAmount = "variable,"
  then
  show card field it
  click at the loc of card field it
  type "$"
else
  put empty into card field it
  hide card field it
end if
end monthInfo




-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=10 top=35 right=117 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: January
----- HyperTalk script -----
on mouseUp
  monthInfo
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=136 top=35 right=117 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: February
----- HyperTalk script -----
on mouseUp
  monthInfo
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=264 top=35 right=117 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: March
----- HyperTalk script -----
on mouseUp
  monthInfo
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=391 top=35 right=117 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: April
----- HyperTalk script -----
on mouseUp
  monthInfo
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=10 top=130 right=212 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: May
----- HyperTalk script -----
on mouseUp
  monthInfo
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=136 top=130 right=212 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: June
----- HyperTalk script -----
on mouseUp
  monthInfo
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=264 top=130 right=212 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: July
----- HyperTalk script -----
on mouseUp
  monthInfo
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=391 top=130 right=212 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: August
----- HyperTalk script -----
on mouseUp
  monthInfo
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=10 top=228 right=310 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: September
----- HyperTalk script -----
on mouseUp
  monthInfo
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=136 top=228 right=310 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: October
----- HyperTalk script -----
on mouseUp
  monthInfo
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=264 top=228 right=310 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: November
----- HyperTalk script -----
on mouseUp
  monthInfo
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=391 top=228 right=310 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: December
----- HyperTalk script -----
on mouseUp
  monthInfo
end mouseUp



-- part 17 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=26 top=75 right=92 bottom=104
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: January


-- part 18 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=152 top=75 right=92 bottom=230
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: February


-- part 19 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=280 top=75 right=92 bottom=358
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: March


-- part 20 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=407 top=75 right=92 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: April


-- part 21 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=26 top=170 right=187 bottom=104
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: May


-- part 22 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=152 top=170 right=187 bottom=230
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: June


-- part 23 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=280 top=170 right=187 bottom=358
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: July


-- part 24 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=407 top=170 right=187 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: August


-- part 25 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=26 top=268 right=285 bottom=104
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: September


-- part 26 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=152 top=268 right=285 bottom=230
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: October


-- part 27 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=280 top=268 right=285 bottom=358
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: November


-- part 28 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=407 top=269 right=286 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: December


-- part 29 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=25 top=11 right=28 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ChooseMonth


-- part 30 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=172 top=313 right=341 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
  global expenseAmount,expense,moreExpenses
  set numberFormat to "0.00"
  set cursor to 4
  put loc of msg into saveMsg
  set loc of msg to 18,69
  put "Please wait"
  repeat with i = 1 to 12
    if the hiLite of button i is true then
      get the short name of button i
      put it into month
      put month & "," after expense
      if expenseAmount ="variable," then
        delete last char of expense
        get card field i
        if it = "$" or it = empty then ask "Please enter the amount for " & month
        if it = empty then
          delete last item of expense
          put "," after expense
        else
          if char 1 of it = "$" then delete char 1 of it
          if last char of it = "$" then delete last char of it
          if last char of it = return then delete line 2 of it
          if last char of it = return then delete last char of it
          repeat
            if "," is in it then
              put offset (",",it) into er
              delete char er of it
            else
              exit repeat
            end if
          end repeat
          add 0 to it
          put " - "& "$" & it & "," after expense
        end if
      end if
      hide card field i
      put empty into card field i
      set hiLite of button i to false
    end if
  end repeat
  delete last char of expense
  hide msg
  set loc of msg to saveMsg
  visual venetian blinds to gray
  visual venetian blinds
  pop card
  put 1 into moreExpenses
  doAlphabet
  answer "Are you finished adding expenses?" with "Yes" or "No"
  if it = "yes" then noMore
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=259 top=316 right=338 bottom=329
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
  global expense,moreExpenses
  answer "Cancel the months selected or the expense item?" with "Expense" or "Months"
  set cursor to 4
  if it = "Expense" then
    put empty into expense
  end if
  put 1 into i
  repeat 12 times
    if the hiLite of button i = true then
      hide card field i
      set the hiLite of button i to false
      put empty into card field i
    end if
    add 1 to i
  end repeat
  if it = "Expense" then
    visual venetian blinds to gray
    visual venetian blinds
    pop card
    put 1 into moreExpenses
  end if
end mouseUp



-- part 32 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=9 top=26 right=329 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allExpenses


-- part contents for card part 29
----- text -----
CLICK ON THE MONTHS YOU PAY THIS EXPENSE